home *** CD-ROM | disk | FTP | other *** search
/ C & C++ Multimedia Cyber Classroom / C and C++ Multimedia Cyber Classroom (Prentice Hall) (1998).iso / cpphtp2 / code.jar / code / ch15 / fig15_23.txt < prev   
Text File  |  1998-02-27  |  334b  |  14 lines
  1. 1   10 rem   calculate the squares of several integers
  2. 2   20 input j
  3. 3   23 rem
  4. 4   25 rem   test for sentinel value
  5. 5   30 if j == -9999 goto 99
  6. 6   33 rem
  7. 7   35 rem   calculate square of j and assign result to k
  8. 8   40 let k = j * j
  9. 9   50 print k
  10. 10  53 rem
  11. 11  55 rem   loop to get next j
  12. 12  60 goto 20
  13. 13  99 end
  14.